home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / applications / adder / startadder.mta < prev   
Encoding:
Text File  |  1994-12-15  |  1.6 KB  |  29 lines
  1.  
  2. Malloc(90); @xbwstart(("test") ("bw"));                   % use "bw" or "color"
  3. @addermfx();                                             % Read MFX Group that was created by XbW
  4. wdw(TEST 3 4 20 11 StandardWDW);                          % create window
  5. @window/gimmicks(TEST(" Add/Subtract"));                  % add some buttons
  6.  
  7. o(TEST1 S . 1 2 8 1 Remark); bg(TEST1 .("A"));eg();       %TEXT objects
  8. o(TEST2 S . 1 3 8 1 Remark); bg(TEST2 .("B"));eg();       %name x y w h color
  9. o(TEST3 S . 1 4 8 1 Remark); bg(TEST3 .("Sum"));eg();
  10.                                                           %INTEGER objects
  11. o(TEST4 I I 9 2 8 1 Secure); bg(TEST4 . (ptr)MFX:mfi.A );eg();
  12. o(TEST5 I I 9 3 8 1 Secure); bg(TEST5 . (ptr)MFX:mfi.B );eg();
  13. o(TEST6 I I 9 4 8 1 Extra 1 (ptr)MFX:mfi.Display 0 );
  14.   bg(TEST6 . (ptr)MFX:mfi.Sum );
  15.   eg();
  16. o(TEST7 S T 9 6 4 1 Secure);                              %ADD-button
  17.   bg(TEST7 .(" +"));tk(("") ("adder"));                   % task name
  18.   cn(rbK("(str)MFX:mfi.Cmd:=ADD;"));                      % set command value
  19.   cn(wbX("mfi")); cn(raX("mfi"));     eg();               % rd/write MFX group
  20. o(TEST8 S T 13 6 4 1 Secure);                             %SUB-button
  21.   bg(TEST8 .(" -"));tk(("") ("adder"));                   % task name
  22.   cn(rbK("(str)MFX:mfi.Cmd:=SUB;"));                      % set command value
  23.   cn(wbX("mfi")); cn(raX("mfi"));     eg();               % rd/write MFX group
  24. o(TEST9 S . 9 7 8 1 Dangerous);bg(TEST9 .(" Exit"));
  25.   cn(raK("@xbwstop();"));  eg();                          %STOP button
  26.  
  27. Message(("Project Complete."));
  28. End();
  29.